* net/tramp-fish.el (tramp-fish-handle-delete-directory):

* net/tramp-gvfs.el (tramp-gvfs-handle-delete-directory): Use
`tramp-compat-delete-directory'.

diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el
index 45f30330b09da523a36dc2519d1124c25b5b237c..94f6f742017189bc3217e67a34233b85ebcec618 100644 (file)
--- a/lisp/net/tramp-gvfs.el
+++ b/lisp/net/tramp-gvfs.el
@@ -522,7 +522,8 @@ is no information where to trace the message.")
 
 (defun tramp-gvfs-handle-delete-directory (directory &optional recursive)
   "Like `delete-directory' for Tramp files."
-  (delete-directory (tramp-gvfs-fuse-file-name directory) recursive))
+  (tramp-compat-delete-directory
+   (tramp-gvfs-fuse-file-name directory) recursive))
 
 (defun tramp-gvfs-handle-delete-file (filename)
   "Like `delete-file' for Tramp files."